PROGRAM math
REAL :: a,b,c
PRINT *,'Enter two Numbers'
PRINT *,'Enter a:';	READ *,a
PRINT *,'Enter b';	READ *,b
PRINT *,'a+b=',a+b
PRINT *,'a-b=',a-b
PRINT *,'a*b=',a*b
PRINT *,'a/b=',a/b
END PROGRAM 


